home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
scrbas.arc
/
COMDEF.BAS
next >
Wrap
BASIC Source File
|
1987-01-02
|
1KB
|
34 lines
REM *** COMDEF.BAS ***
LOCKS$(0)=STRING$(7,219): LOCKS$(1)=STRING$(4,219)+"NUM"
LOCKS$(2)="CAP"+STRING$(4,219): LOCKS$(3)="CAP"+CHR$(219)+"NUM"
NTR$=CHR$(13): BKSP$=CHR$(8): UP$=CHR$(24): DN$=CHR$(25)
ESC$=CHR$(27)
RT$=CHR$(26): LF$=CHR$(27): PG.UP=73: PG.DN=81 : ESC=27 : CR=13
LF.CURSOR=75: RT.CURSOR=77: END.KEY=79: INS.KEY=82: DEL.KEY=83: HOME=71
DN.CURSOR=80: UP.CURSOR=72: CTRL.END=117: CTRL.HOME=119 : CTRL.RT=116: CTRL.LF=115
F1=59: F2=60: F3=61: F4=62: F5=63: F6=64: F7=65: F8=66: F9=67: F10=68
YES = NOT NO : NO = NOT YES
CU1=4 : CU2=7
DEF SEG=&H40
REM IF CRT = 1 THEN 40 X 25 COLOR
REM IF CRT = 32 THEN 80 X 25 COLOR
REM IF CRT = 48 THEN MONOCHROME
REM IF CRT = 64 THEN BOTH
CRT = PEEK(&H10)
IF CRT = 48 THEN DEF SEG=&HB000 ELSE DEF SEG=&HB800
FG =7
BG =0
RFG =0
RBG =7
SFG =15
SBG =0
HL =15
BL =23